home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Directorytools / BrowserII V3.09 / S / LhArcDir_P.C < prev    next >
AmigaDOS Script File  |  1996-09-26  |  458b  |  29 lines
  1. .key Dir/A,Destination,Pat/K
  2. .bra {
  3. .ket }
  4. .def Pat="#?"
  5.  
  6. Set CurrentDir `CD`
  7. IF "{Destination}" EQ ""
  8.     Set Dest $CurrentDir
  9. Else
  10.     Set Dest {Destination}
  11. EndIf
  12.  
  13. CD "{Dir}"
  14. CD /
  15. Set ArcDir `BaseName "{Dir}"`
  16. Set ArcPathName "`TackOn "$Dest" "$ArcDir"`"
  17.  
  18. Lha -a -r -x a "$ArcPathName" "$ArcDir/{Pat}"
  19. IF $RC GT 0
  20.     Echo "Error during compression of {Dir}."
  21.     Ask "Press RETURN..."
  22. EndIf
  23. CD $CurrentDir
  24. UnSet Dest
  25. UnSet ArcDir
  26. UnSet ArcPathName
  27. UnSet CurrentDir
  28.  
  29.